home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Source Code / Libraries / WASTE 1.2a4 / WEPascalPPCGlue.p < prev   
Encoding:
Text File  |  1995-11-05  |  3.9 KB  |  99 lines  |  [TEXT/CWIE]
  1. unit WEPascalPPCGlue;
  2.  
  3. { WASTE Pascal PPC glue code }
  4. { version 1.2a3 }
  5.  
  6. { RATIONALE: the NewWE≈Proc calls used to create routine descriptors   }
  7. {  for several WASTE callbacks are defined as actual entry points in   }
  8. {  WASTE.p (if generating code for the PPC), but in the C code they're }
  9. {  really only macros.  So when you link a PPC Pascal program to a     }
  10. {  WASTE library built from C code, you'll want to include this glue   }
  11. {  file to avoid link errors.                                          }
  12.  
  13. { Copyright © 1993-1995 Marco Piovanelli }
  14. { All Rights Reserved }
  15.  
  16. interface
  17.     uses
  18.         WASTE;
  19.  
  20. implementation
  21.  
  22. {$IFC GENERATINGCFM}
  23. {$PUSH}
  24. {$Z+}
  25.  
  26.     function NewWEClickLoopProc (userRoutine: WEClickLoopProcPtr): WEClickLoopUPP;
  27.     begin
  28.         NewWEClickLoopProc := NewRoutineDescriptor(userRoutine, uppWEClickLoopProcInfo, GetCurrentArchitecture);
  29.     end;  { NewWEClickLoopProc }
  30.  
  31.     function NewWEScrollProc (userRoutine: WEScrollProcPtr): WEScrollUPP;
  32.     begin
  33.         NewWEScrollProc := NewRoutineDescriptor(userRoutine, uppWEScrollProcInfo, GetCurrentArchitecture);
  34.     end;  { NewWEScrollProc }
  35.  
  36.     function NewWETSMPreUpdateProc (userRoutine: WETSMPreUpdateProcPtr): WETSMPreUpdateUPP;
  37.     begin
  38.         NewWETSMPreUpdateProc := NewRoutineDescriptor(userRoutine, uppWETSMPreUpdateProcInfo, GetCurrentArchitecture);
  39.     end;  { NewWETSMPreUpdateProc }
  40.  
  41.     function NewWETSMPostUpdateProc (userRoutine: WETSMPostUpdateProcPtr): WETSMPostUpdateUPP;
  42.     begin
  43.         NewWETSMPostUpdateProc := NewRoutineDescriptor(userRoutine, uppWETSMPostUpdateProcInfo, GetCurrentArchitecture);
  44.     end;  { NewWETSMPostUpdateProc }
  45.  
  46.     function NewWETranslateDragProc (userRoutine: WETranslateDragProcPtr): WETranslateDragUPP;
  47.     begin
  48.         NewWETranslateDragProc := NewRoutineDescriptor(userRoutine, uppWETranslateDragProcInfo, GetCurrentArchitecture);
  49.     end;  { NewWETranslateDragProc }
  50.  
  51.     function NewWEDrawTextProc (userRoutine: WEDrawTextProcPtr): WEDrawTextUPP;
  52.     begin
  53.         NewWEDrawTextProc := NewRoutineDescriptor(userRoutine, uppWEDrawTextProcInfo, GetCurrentArchitecture);
  54.     end;  { NewWEDrawTextProc }
  55.  
  56.     function NewWEPixelToCharProc (userRoutine: WEPixelToCharProcPtr): WEPixelToCharUPP;
  57.     begin
  58.         NewWEPixelToCharProc := NewRoutineDescriptor(userRoutine, uppWEPixelToCharProcInfo, GetCurrentArchitecture);
  59.     end;  { NewWEPixelToCharProc }
  60.  
  61.     function NewWECharToPixelProc (userRoutine: WECharToPixelProcPtr): WECharToPixelUPP;
  62.     begin
  63.         NewWECharToPixelProc := NewRoutineDescriptor(userRoutine, uppWECharToPixelProcInfo, GetCurrentArchitecture);
  64.     end;  { NewWECharToPixelProc }
  65.  
  66.     function NewWELineBreakProc (userRoutine: WELineBreakProcPtr): WELineBreakUPP;
  67.     begin
  68.         NewWELineBreakProc := NewRoutineDescriptor(userRoutine, uppWELineBreakProcInfo, GetCurrentArchitecture);
  69.     end;  { NewWELineBreakProc }
  70.  
  71.     function NewWENewObjectProc (userRoutine: WENewObjectProcPtr): WENewObjectUPP;
  72.     begin
  73.         NewWENewObjectProc := NewRoutineDescriptor(userRoutine, uppWENewObjectProcInfo, GetCurrentArchitecture);
  74.     end;  { NewWENewObjectProc }
  75.  
  76.     function NewWEDisposeObjectProc (userRoutine: WEDisposeObjectProcPtr): WEDisposeObjectUPP;
  77.     begin
  78.         NewWEDisposeObjectProc := NewRoutineDescriptor(userRoutine, uppWEDisposeObjectProcInfo, GetCurrentArchitecture);
  79.     end;  { NewWEDisposeObjectProc }
  80.  
  81.     function NewWEDrawObjectProc (userRoutine: WEDrawObjectProcPtr): WEDrawObjectUPP;
  82.     begin
  83.         NewWEDrawObjectProc := NewRoutineDescriptor(userRoutine, uppWEDrawObjectProcInfo, GetCurrentArchitecture);
  84.     end;  { NewWEDrawObjectProc }
  85.  
  86.     function NewWEClickObjectProc (userRoutine: WEClickObjectProcPtr): WEClickObjectUPP;
  87.     begin
  88.         NewWEClickObjectProc := NewRoutineDescriptor(userRoutine, uppWEClickObjectProcInfo, GetCurrentArchitecture);
  89.     end;  { NewWEClickObjectProc }
  90.     
  91.     function NewWEStreamObjectProc (userRoutine: WEStreamObjectProcPtr): WEStreamObjectUPP;
  92.     begin
  93.         NewWEStreamObjectProc := NewRoutineDescriptor(userRoutine, uppWEStreamObjectProcInfo, GetCurrentArchitecture);
  94.     end;  { NewWEStreamObjectProc }
  95.  
  96. {$POP}
  97. {$ENDC}
  98.  
  99. end.